Sampling & Re-grouping
names <- sample(c(
"John", "Jon", "Jhon", "Jonh",
"Michael", "Micheal", "Michel",
"Emily", "Emili", "Emely", "Emiley",
"Sarah", "Sara", "Sera", "Serah",
"Matthew", "Mathew", "Mathhew",
"Jessica", "Jessika", "Jesica", "Jessicah",
"Daniel", "Daniele", "Danial",
"Elizabeth", "Elisabeth", "Elisabet",
"David", "Davi", "Davide",
"Jennifer", "Jennipher", "Jenifer",
"Christopher", "Cristopher", "Christoper",
"Amanda", "Amandah", "Amandaa",
"Andrew", "Andrw", "Andew",
"Stephanie", "Stephany", "Stephaine",
"Joshua", "Josh", "Jshua"
), replace = FALSE)
group <- function(names)
{
val2=NULL
for (i in names)
{
val=agrep(i,names)
val2=c(val2,val)
}
val2=unique(val2)
return(names[val2])
}
group(names)
## [1] "Davi" "Danial" "Davide" "Daniel" "David"
## [6] "Daniele" "Michael" "Michel" "Christoper" "Christopher"
## [11] "Amandaa" "Amandah" "Amanda" "Emely" "Emily"
## [16] "Emili" "Emiley" "Jonh" "Josh" "John"
## [21] "Joshua" "Jon" "Stephany" "Stephanie" "Sera"
## [26] "Sarah" "Serah" "Sara" "Andrew" "Andrw"
## [31] "Andew" "Elisabet" "Elizabeth" "Elisabeth" "Mathew"
## [36] "Matthew" "Mathhew" "Stephaine" "Jshua" "Jessica"
## [41] "Jesica" "Jessika" "Jessicah" "Cristopher" "Micheal"
## [46] "Jhon" "Jennifer" "Jenifer" "Jennipher"